home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_56
/
yatzy
/
yatzy.bas
(
.txt
)
next >
Wrap
Atari STOS Basic
|
1987-04-21
|
77KB
|
182 lines
100 IF
1000 IF
1010 IF
1020 IF
1030 IF
1040 IF
1050 IF
1060 RETURN
1070 VARNAME
1080 FOR
1090 IF
110 IF
1100 VARNAME
1110 NEXT
1120 IF
1130 FOR
1140 IF
1150 VARNAME
1160 NEXT
1170 VARNAME
1180 GOSUB
1190 VARNAME
120 IF
1200 GOSUB
1210 VARNAME
1220 GOSUB
1230 RETURN
1240 VARNAME
1250 PAPER
1260 IF
1270 IF
1280 IF
1290 IF
130 GOTO
1300 PAPER
140 IF
150 VARNAME
160 FOR
170 VARNAME
1750 IF
1760 MUSIC
1770 VARNAME
1780 RETURN
1790 VARNAME
180 NEXT
1800 VARNAME
1810 IF
1820 IF
1830 IF
1840 IF
1850 IF
1860 IF
1870 IF
1880 GOTO
1890 IF
190 CLS
1900 IF
1910 IF
1920 IF
1930 IF
1940 RETURN
1950 VARNAME
1960 VARNAME
1970 IF
1980 IF
1990 IF
20 PALETTE
200 FOR
2000 IF
2010 IF
2020 IF
2030 IF
2040 IF
2050 IF
2060 IF
2070 IF
2080 IF
2090 IF
210 NEXT
2100 IF
2110 IF
2120 GOTO
2130 ANIM
2140 ANIM
2150 PAPER
2160 VARNAME
2170 IF
2180 IF
2190 GOTO
220 FOR
2200 SPRITE
2210 WAIT
2220 ANIM
2230 RETURN
2240 IF
2250 MUSIC
2260 VARNAME
230 FOR
240 NEXT
250 LIMIT SPRITE
260 FOR
270 SPRITE
280 MOVE X
290 NEXT
30 MODE
300 FOR
310 FOR
320 LOCATE
330 FOR
340 GOSUB
350 IF
360 FOR
370 NEXT
380 FOR
390 FOR
40 EXTENSION (Index #0) (Token 0x80)
400 VARNAME
410 VARNAME
420 IF
430 GOSUB
440 LOCATE
450 NEXT
460 LOCATE
470 GOSUB
480 IF
490 IF
50 DIM
500 VARNAME
510 FOR
520 FOR
530 IF
540 VARNAME
550 IF
560 FOR
570 IF
580 VARNAME
590 IF
60 PAPER
600 FOR
610 IF
620 VARNAME
630 NEXT
640 IF
650 VARNAME
660 IF
670 FOR
680 IF
690 FOR
70 EXTENSION (Index #0) (Token 0x80)
700 IF
710 FOR
720 NEXT
730 IF
740 FOR
750 NEXT
760 IF
770 FOR
780 NEXT
790 IF
80 VARNAME
800 VARNAME
810 FOR
820 IF
830 VARNAME
840 VARNAME
850 NEXT
860 IF
870 VARNAME
880 GOSUB
890 GOSUB
90 IF
900 VARNAME
910 GOSUB
920 NEXT
930 NEXT
940 NEXT
950 LOCATE
960 VARNAME
970 IF
980 EXTENSION (Index #0) (Token 0x80)
990 IF